WPS 加载项开发 > 表格 API 参考 > PivotCache > 属性 > PivotCache.ADOConnection 属性
如果将数据透视表缓存连接到 OLE DB 数据源,则返回一个 ADO Connection 对象。ADOConnection 属性表明 ET 与数据提供程序相连,允许用户在 ET 正在使用的同一会话的上下文内编写代码, ET 将该会话与 ADO(关系源)或 ADO MD(OLAP 源)一起使用。只读。

语法

表达式.ADOConnection

表达式   一个代表 PivotCache 对象的变量。

说明

ADOConnection 属性仅供具有 OLE DB 数据源的会话使用。如果没有 ADO 会话,查询将导致运行时错误。

ADOConnection 属性可用于具有 ADO 的任何基于 OLE DB 的缓存。ADO Connection 对象可与 ADO MD 一起使用,以查找有关缓存所基于的 OLAP 多维数据集的信息。

示例

本示例将 ADO DB Connection 对象设置为数据透视表缓存的 ADOConnection 属性。本示例假设数据透视表位于活动工作表上。

示例代码
Sub UseADOConnection()

    Dim ptOne As PivotTable
    Dim cmdOne As New ADODB.Command
    Dim cfOne As CubeField

    Set ptOne = Sheet1.PivotTables(1)
    ptOne.PivotCache.MaintainConnection = True
    Set cmdOne.ActiveConnection = ptOne.PivotCache.ADOConnection

    ptOne.PivotCache.MakeConnection

    ' Create a set.
    cmdOne.CommandText = "Create Set [Warehouse].[My Set] as '{[Product].[All Products].Children}'"
    cmdOne.CommandType = adCmdUnknown
    cmdOne.Execute

    ' Add a set to the CubeField.
    Set cfOne = ptOne.CubeFields.AddSet("My Set", "My Set")

End Sub
本示例将添加一个计算成员,并假设数据透视表位于活动工作表上。
示例代码
Sub AddMember()

    Dim cmd As New ADODB.Command

    If Not ActiveSheet.PivotTables(1).PivotCache.IsConnected Then
        ActiveSheet.PivotTables(1).PivotCache.MakeConnection
    End If

    Set cmd.ActiveConnection = ActiveSheet.PivotTables(1).PivotCache.ADOConnection

    ' Add a calculated member.
    cmd.CommandText = "CREATE MEMBER [Warehouse].[Product].[All Products].[Drink and Non-Consumable] AS '[Product].[All Products].[Drink] + [Product].[All Products].[Non-Consumable]'"
    cmd.CommandType = adCmdUnknown
    cmd.Execute

    ActiveSheet.PivotTables(1).PivotCache.Refresh

End Sub


请参阅